home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / mag / coderoom / ssstub.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-02-04  |  641 b   |  38 lines
  1. program SSStub;
  2.  
  3. {$D SCRNSAVE : Visual Basic }
  4.  
  5. uses WinTypes, WinProcs;
  6.  
  7. procedure WinMain;
  8. var
  9.     go: Bool;
  10.  
  11. begin
  12.     go := False;
  13.  
  14.     { Check for /s parameter }
  15.  
  16.     while CmdLine^ <> #0 do
  17.     begin
  18.         if CmdLine^ in ['/', '-'] then
  19.             if (CmdLine+1)^ in ['s', 'S'] then
  20.                 go := True;
  21.         Inc (CmdLine);
  22.     end;
  23.  
  24.     if not go then
  25.         MessageBox (GetActiveWindow, 'This screen saver has no options that you can set.', 'Screen Saver', $30)
  26.     else
  27.         WinExec ('VBSAVER.EXE', sw_Show);
  28. end;
  29.  
  30. begin
  31.     { Main program }
  32.  
  33.     WinMain;
  34.     Halt (1);
  35. end.
  36.  
  37.  
  38.